OBJECT Report 69902 Item Inventory Template
{
  OBJECT-PROPERTIES
  {
    Date=06/21/17;
    Time=[ 2:07:19 PM];
    Modified=Yes;
    Version List=FORNAV2.0.0.1247/1249;
  }
  PROPERTIES
  {
    OnInitReport=BEGIN
                   ;ReportForNav:= ReportForNav.Report(CurrReport.OBJECTID,CurrReport.LANGUAGE,SERIALNUMBER,USERID,COMPANYNAME);ReportForNav.Init;
                 END;

    OnPreReport=BEGIN
                  ;ReportForNav.OpenDesigner:=ReportForNavOpenDesigner;IF NOT ReportForNav.Pre THEN CurrReport.QUIT;
                END;

    OnPostReport=BEGIN
                   ;ReportForNav.Post;
                 END;

  }
  DATASET
  {
    { 1   ;    ;DataItem;                    ;
               DataItemTable=Table79;
               DataItemTableView=SORTING(Primary Key);
               CalcFields=Picture }

    { 2   ;    ;DataItem;Item                ;
               DataItemTable=Table27;
               CalcFields=Inventory }

  }
  REQUESTPAGE
  {
    PROPERTIES
    {
    }
    CONTROLS
    {
      { 1900000001;0;Container;
                  ContainerType=ContentArea }

      { 1900000002;1;Group  ;
                  CaptionML=[CSY=Mo§nosti;
                             DAN=Indstillinger;
                             DEU=Optionen;
                             ENU=Options;
                             FIN=Vaihtoehdot;
                             ISL=Valkostir;
                             NLD=Opties;
                             NOR=Alternativer;
                             SVE=Alternativ;
                             ITS=Opzioni;
                             NLB=Opties] }

      { 5000;2   ;Field     ;
                  Name=ForNavOpenDesigner;
                  CaptionML=ENU=Open Designer;
                  SourceExpr=ReportForNavOpenDesigner;
                  Visible=ReportForNavAllowDesign }

    }
  }
  LABELS
  {
  }
  CODE
  {
    VAR
      ReportForNav@5000 : DotNet "'ForNav.Reports.2.0.0.1247, Version=2.0.0.1247, Culture=neutral, PublicKeyToken=5284c1af2984feb0'.ForNav.Report" WITHEVENTS;
      ReportForNavClient@5003 : DotNet "'ForNav.Reports.2.0.0.1247, Version=2.0.0.1247, Culture=neutral, PublicKeyToken=5284c1af2984feb0'.ForNav.Report" RUNONCLIENT;
      ReportForNavDialog@5001 : Dialog;
      ReportForNavOpenDesigner@5002 : Boolean;
      ReportForNavAllowDesign@5004 : Boolean INDATASET;

    EVENT ReportForNav@5000::OnInit@5002();
    VAR
      ReportLayoutSelection@1000 : Record 9651;
      CustomReportLayout@1001 : Record 9650;
      CustomLayoutID@1002 : Variant;
      InStream@1004 : InStream;
      EmptyLayout@1003 : Text;
    BEGIN
      EmptyLayout := FORMAT(ReportLayoutSelection."Custom Report Layout Code");
      CustomLayoutID := ReportLayoutSelection."Custom Report Layout Code";
      ReportForNav.OData := GETURL(CLIENTTYPE::OData, COMPANYNAME, OBJECTTYPE::Page, 7702);
      IF FORMAT(ReportLayoutSelection.GetTempLayoutSelected) <> EmptyLayout THEN
        CustomLayoutID := ReportLayoutSelection.GetTempLayoutSelected
      ELSE
        IF ReportLayoutSelection.HasCustomLayout(ReportForNav.ReportID) = 1 THEN
          CustomLayoutID := ReportLayoutSelection."Custom Report Layout Code";

      IF (FORMAT(CustomLayoutID) <> EmptyLayout) AND CustomReportLayout.GET(CustomLayoutID) THEN BEGIN
        CustomReportLayout.TESTFIELD(Type,CustomReportLayout.Type::RDLC);
        CustomReportLayout.CALCFIELDS(Layout);
        CustomReportLayout.Layout.CREATEINSTREAM(InStream,TEXTENCODING::UTF8);
        ReportForNav.IsCustomLayout := TRUE;
      END ELSE
        REPORT.RDLCLAYOUT(ReportForNav.ReportID,InStream);

      ReportForNav.LoadRdlc(InStream);
      IF COPYSTR(LOWERCASE(GETURL(CLIENTTYPE::Current, COMPANYNAME, OBJECTTYPE::Codeunit, 1)), 1, 14) = 'dynamicsnav://' THEN BEGIN
        ReportForNav.CheckClientAddIn();
        ReportForNavClient := ReportForNavClient.Report(ReportForNav.Definition);
        ReportForNavAllowDesign := ReportForNavClient.HasDesigner AND NOT ReportForNav.ParameterMode;
      END;
    END;

    EVENT ReportForNav@5000::OnSave@5010(Base64Layout@1000 : Text);
    VAR
      CustomReportLayout@1002 : Record 9650;
      ReportLayoutSelection@1003 : Record 9651;
      LayoutId@1004 : Variant;
      TempBlob@1007 : Record 99008535;
      OutStream@1006 : OutStream;
      Bstr@1005 : BigText;
      EmptyLayout@1001 : Text;
    BEGIN
      EmptyLayout := FORMAT(ReportLayoutSelection."Custom Report Layout Code");
      LayoutId := ReportLayoutSelection."Custom Report Layout Code";
      IF ReportLayoutSelection.HasCustomLayout(ReportForNav.ReportID) = 1 THEN BEGIN
        IF FORMAT(ReportLayoutSelection.GetTempLayoutSelected) <> EmptyLayout THEN BEGIN
          LayoutId := ReportLayoutSelection.GetTempLayoutSelected;
        END ELSE BEGIN
          IF ReportLayoutSelection.GET(ReportForNav.ReportID, COMPANYNAME) THEN BEGIN
          LayoutId := ReportLayoutSelection."Custom Report Layout Code";
          END;
        END;
      END ELSE BEGIN
        IF CONFIRM('Default custom layout not found. Create one?') THEN;
      END;
      IF FORMAT(LayoutId) <> EmptyLayout THEN BEGIN
        TempBlob.Blob.CREATEOUTSTREAM(OutStream);
        Bstr.ADDTEXT(Base64Layout);
        Bstr.WRITE(OutStream);
        CustomReportLayout.GET(LayoutId);
        CustomReportLayout.ImportLayoutBlob(TempBlob, 'RDL');
      END;
    END;

    EVENT ReportForNav@5000::OnParameters@5008(Parameters@1000 : Text);
    BEGIN
      ReportForNav.Parameters := REPORT.RUNREQUESTPAGE(ReportForNav.ReportID, Parameters);
    END;

    EVENT ReportForNav@5000::OnPreview@5009(Parameters@1000 : Text;FileName@1005 : Text);
    VAR
      PdfFile@1002 : File;
      InStream@1003 : InStream;
      OutStream@1004 : OutStream;
    BEGIN
      COMMIT;
      PdfFile.CREATETEMPFILE;
      PdfFile.CREATEOUTSTREAM(OutStream);
      REPORT.SAVEAS(ReportForNav.ReportID, Parameters, REPORTFORMAT::Pdf, OutStream);
      PdfFile.CREATEINSTREAM(InStream);
      ReportForNavClient.ShowDesigner;
      IF ReportForNav.IsValidPdf(PdfFile.NAME) THEN DOWNLOADFROMSTREAM(InStream, '', '', '', FileName);
      PdfFile.CLOSE;
    END;

    EVENT ReportForNav@5000::OnPreSection@5012(DataItemId@1170000000 : Text;SectionId@1170000001 : Text);
    BEGIN
    END;

    EVENT ReportForNav@5000::OnPostSection@50013(DataItemId@1170000000 : Text;SectionId@1170000001 : Text);
    BEGIN
    END;

    EVENT ReportForNav@5000::OnClientOperation@5008(Args@1000 : DotNet "'mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Array");
    VAR
      op@1001 : Text;
      FileMgmt@1002 : Codeunit 419;
      Process@1006 : DotNet "'System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Diagnostics.Process" RUNONCLIENT;
      PathObj@1005 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.IO.Path" RUNONCLIENT;
      FileVersionInfo@1003 : DotNet "'System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Diagnostics.FileVersionInfo" RUNONCLIENT;
      DirectoryHelper@1004 : DotNet "'mscorlib'.System.IO.Directory" RUNONCLIENT;
    BEGIN
      op := Args.GetValue(0);
      CASE op OF
        'TempPath': ReportForNav.Result := PathObj.GetTempPath();
        'FileExists': ReportForNav.Result := FileMgmt.ClientFileExists(Args.GetValue(1));
        'DirectoryExists': ReportForNav.Result := FileMgmt.ClientDirectoryExists(Args.GetValue(1));
        'ProcessLocation': ReportForNav.Result := Process.GetCurrentProcess().MainModule.FileName;
        'FileVersion': ReportForNav.Result := FileVersionInfo.GetVersionInfo(Args.GetValue(1)).FileVersion;
        'DeleteFile': FileMgmt.DeleteClientFile(Args.GetValue(1));
        'DeleteDirectory': IF STRLEN(Args.GetValue(1)) > 20 THEN
          IF FileMgmt.ClientDirectoryExists(Args.GetValue(1)) THEN
            DirectoryHelper.Delete(FORMAT(Args.GetValue(1)), TRUE);
      END;
    END;

    EVENT ReportForNav@5000::OnCheckForNavClientVersion@5007();
    BEGIN
      ReportForNavClient := ReportForNavClient.Report();
      IF ReportForNav.MyFileVersion <> ReportForNavClient.MyFileVersion THEN
        ERROR('You have version %1 of the Reports ForNAV assembly here:\\%2\\Please close your NAV client and update it to version %3.',
              ReportForNavClient.MyFileVersion, ReportForNavClient.MyFileName, ReportForNav.MyFileVersion);
    END;

    EVENT ReportForNav@5000::OnSelectPrinter@5006();
    BEGIN
      ReportForNav.PrinterSettings.PageSettings := ReportForNavClient.SelectPrinter(ReportForNav.PrinterSettings.PrinterName,ReportForNav.PrinterSettings.ShowPrinterDialog,ReportForNav.PrinterSettings.PageSettings);
    END;

    EVENT ReportForNav@5000::OnPrint@5005(InStream@1170000000 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.IO.Stream");
    VAR
      ClientFileName@1170000001 : Text[255];
    BEGIN
      DOWNLOADFROMSTREAM(InStream, '', '<TEMP>', '', ClientFileName);
      ReportForNavClient.Print(ClientFileName);
    END;

    EVENT ReportForNav@5000::OnDesign@5007(Data@1001 : Text);
    BEGIN
      ReportForNavClient.Data := Data;
      WHILE ReportForNavClient.DesignReport DO BEGIN
        ReportForNav.HandleRequest(ReportForNavClient.GetRequest());
        SLEEP(100);
      END;
    END;

    EVENT ReportForNav@5000::OnView@5008(ClientFileName@1170000000 : Text;Parameters@1170000001 : Text;ServerFileName@1170000002 : Text);
    VAR
      ServerFile@1170000003 : File;
      ServerInStream@1170000004 : InStream;
    BEGIN
      ServerFile.OPEN(ServerFileName);
      ServerFile.CREATEINSTREAM(ServerInStream);
      DOWNLOADFROMSTREAM(ServerInStream,'','','',ClientFileName);
    END;

    EVENT ReportForNav@5000::OnMessage@5009(Operation@1170000000 : Text;Parameter@1170000001 : Text;ParameterNo@1170000002 : Integer);
    BEGIN
      CASE Operation OF
        'Open'    : ReportForNavDialog.OPEN(Parameter);
        'Update'  : ReportForNavDialog.UPDATE(ParameterNo,Parameter);
        'Close'   : ReportForNavDialog.CLOSE();
        'Message' : MESSAGE(Parameter);
        'Error'   : ERROR(Parameter);
      END;
    END;

    EVENT ReportForNav@5000::OnPrintPreview@5011(InStream@1170000000 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.IO.Stream";Preview@1170000001 : Boolean);
    VAR
      ClientFileName@1170000002 : Text[255];
    BEGIN
      DOWNLOADFROMSTREAM(InStream, '', '<TEMP>', '', ClientFileName);
      WHILE ReportForNavClient.PrintPreviewDialog(ClientFileName,ReportForNav.PrinterSettings.PrinterName,Preview) DO BEGIN
        ReportForNav.HandlePrintPreviewRequest(ReportForNavClient.GetPrintPreviewRequest());
        SLEEP(100);
      END;
    END;

    BEGIN
    END.
  }
  RDLDATA
  {
    <?xml version="1.0" encoding="utf-8"?>
<Report xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition">
  <Description>VhsAAK1Z23LjuBF9T1X+gcWHeKZKoQGQIInY2i1f1ruq+FaWZmYrtS8gCVnMUKRCUR5rnvI1+bB8SRoE74I80kzkKtsAgWb36dMXQOc/vy4T40Xk6zhLxya2kGmINMyiOH0em5ti/lff/PmnP//p/Pci509ileXF+pZvs00xFXnMk/iryI3234+NIMciFpXSelOmcc+XYmxWkm6y/J6/mMZVlhZ5lsy2K3h2LV5+eV3lYr22Oi+1Pkw6QzIy9ix7ka8Z1W81xkatyci42iTFJhcwl4oNbElGxuMmSOLw72I7yz4LuTryQu4LnyBv7ggHgf7X8XqV8K3Se1KIpTFJX0RaZPnWmIklPCuEafQMakwmFoIfTBzPNB6Cf4qwuM/GJkVICr6JRRJ9EgGg9xKH4kOejM2rv/0Bb1j9wZPEKHiQiLVBEPas4rUwjUf+LH4T8fOiAMnMQ2rmUxwVC5jAUuYdz5/jdA1DxEaGT0ewHZW/4H0A8ti8kK4aGd4KBF6vYlhJnVr9D2kMK2Zg3GL9ML+4i5MkXopC5CYwwDDOL3karct/YSChwJU7r7LliqfbSTrP8iUvwPaBTxUu17zgcpuUAwt4EpYYgLqPcShdAypVS2bSeNBF/vHYYP5jLL6MzenD02xy/+u7xzxecnAGePF9u/A2Tj+PTWnZv27iBGz4TXBJ6rtbOTuJgI9mZUptmXFa23ZaGte1lBgtAY60raFLq9xHnnfF6YwmntboYwwkQwObYeO+JzEfm47WIClO5MocpayawV3eXPF0ushLTeY8WYMDwRtpccdfH9JQPIpcMrT/7CH9BdLNVj0o8g3MT+PnlEv/w0qPB0KEPvVc4TLfEy7lUeAEQURDwn1fhKEzD9AcNkE0AdEGqqn4uBmbNnMt36Nmx2awurJz3Zvto0G1aMzEa3GZvdZQVEMqdf8q4HUuIiPqWw5EmmMDX2+zsIyDmyTjEFMQgzbxLNftgieFjM3//vs/95ly61QUJWlabljl+IqvpKy1JRee6nQnSnf3CN2dRnebUcsllDjOWyZgByPL9mhtCUIuHVpzkYAnl0Lmmbs4ihLxJL0BXsnyr+UzyPxqprF9EB3fhKBdP8ABkJgW20QAybI8LrYKEYiiD2sx0K2i4w6SZdgTHb62kuYfga/d4OsjXwKHXFziixkDrHfwdRG2GHxs1iCMqZ4v12Id5vFK5dmDUOvt0DLIURayQyycdyfbGMClofDxRgyqngdVjvq6UBgWI+zIanTJw89XWZLlAGHO0/WK5+AtWeQi1Y3YI/VTgnGZ5RDxkF4vs6LIlvq4Am11AF1t8lxVPKtcchCTMCqppBSvGATjjtbtZKNyZ12t75vkc3SuoZUCuMZ/uuArgbWeKh/pPALB6zFHyzyZnHzXQh4Qs0e4UpiSLiMYKo6o0W3H0yIXRbioc/lF+ixrGEM6VKW8yhhSiVcWKVF6TKgOE7cSY2tRqNqJDmXbGayzv+Jrmfc69lfxS5nlM+pRMsIetQhlTLYk2oR3K+b9fKcmGko2jQ7ILhnyjyxbTpZQDLVE3emrrFrAYZx1jk5/rg5trxJ3TG3EDX6ApSosuzWFUkfyk5SNqmchpKD94aryuA/QNvLLJYeh6B6NoqdD0a/EeUfnWNJgyRwAEopJVUt2Ia3I6u/j9HcCWjHxgIzaXXkYvP7R8Po6eFkl7vgS1lLVxnQfVR1m11TF4ATKEJJJ7IeRnWUR1zY/HUzVmoPQJOhoNFm/Rz7VNMn9E1EDedV2En0tusmyon+CUDO9E8RjwkMxSVUVr4vIvoPCW4eL3aNI51jBeeTzEIee69ksCESAA+bQwHc9OOhDy+ULFmKH0MGxotG3OVb4DjRm8HHw8ScLQo5mZluECNnLTOo3zCSuRRzXJQT/H5gJNMon0TeoWS06jJv20dzEb5x2iP7gqi9HZKcpqgCFdty1tW0qccqGnMApsm03Z9lqt9fs4HFTVuqLKJI3U+9ONBW8xPHXPNus1la17mR0MjJO3n8D6h8SfZiD6BG9Kjk0bZBh2qhOU0R/XL3Mom03achxP2V8bxZAHM/pnEURxxGyie2yKPSYHTAkOA0cP/IDL6A8GGSBSoEmB7iuhR0IOsq+Iwd4tVnl9d4wcf7+VN71dLnqjlzbonuOUQ0ou+59yr4MFdlRxu8pAzv26ANPug6AvJyW7FGbQ7WjnAEBn6orSmRR12NQJG2n+mdXSwWbSHYw06o7rOyVdnJ/zxA5sZMAm5uWVj/i2IRRhBmmHvL9spzrT9Ny3xv9PrAOou5LXaaG7f8e2/QxaB9TwPuBNkyWPRCrpGnvcbEWxJ3+Zvf6oUXTJlBNkY2w7fg+9ey9YPb2D6Dba2Anb9jDOvqWCbbWhM6tU2sApsz3mQdpwaU29pmz14LO9oe0TEfT0qKxGc+Nd/0lxl+S4sxA7w2ZySu1ZSoX5a2BMTZOnkR0ciAQkGX3BMs+BpyfahKBbrE2gcP03SYpYtB1s0wr+O2+dkqY3d41n/a+J+iUgO4TRf3pQoii/42CeodbO3KQXFRpKkfyZn0tuhdEaKR+1AVRezHzaREXYrrMPqvrClirSunYvBc8Pyt/obP7LBVnVwue8xCavrNrMedgem3r+WlP4fPTN74Q++l/</Description>
  <AutoRefresh>0</AutoRefresh>
  <DataSources>
    <DataSource Name="DataSource">
      <ConnectionProperties>
        <DataProvider>SQL</DataProvider>
        <ConnectString />
      </ConnectionProperties>
      <rd:SecurityType>None</rd:SecurityType>
      <rd:DataSourceID>0bee2f05-bce8-4139-99fd-02342a6a5662</rd:DataSourceID>
    </DataSource>
  </DataSources>
  <ReportSections>
    <ReportSection>
      <Body>
        <Height>2in</Height>
        <Style />
      </Body>
      <Width>6.5in</Width>
      <Page>
        <Style />
      </Page>
    </ReportSection>
  </ReportSections>
  <rd:ReportUnitType>Invalid</rd:ReportUnitType>
  <rd:ReportID>38ed237a-322e-4825-aa8f-5427334cd17f</rd:ReportID>
</Report>
    END_OF_RDLDATA
  }
}